home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / function.arc / FUNC19.INC < prev    next >
Encoding:
Text File  |  1985-06-15  |  256 b   |  12 lines
  1. { Get the default drive code                                           }
  2.  
  3. FUNCTION Func19 : INTEGER;
  4.  BEGIN
  5.   WITH Registers DO
  6.    BEGIN
  7.     AX:=((AX AND $00FF) OR ($19 SHL 8));
  8.     MSDOS (Registers);
  9.     Func19:=(AX AND $00FF);
  10.    END;
  11.  END;
  12.